Density of Rationals and Irrationals in R